home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Input 64
/
Input_64_85-01_1985_Verlag_Heinz_Weise_de.d64
/
I N F E R N O
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
12KB
|
185 lines
1 :poke2053,143:sys8006:poke788,52:poke50257,16
2 poke50258,64:poke50255,peek(50255)+1
10 poke721,0:poke720,0:forx=0to24:poke54272+x,0:next
40 au=0:ifpeek(711)=2andpeek(712)=2orpeek(690)=15thengosub1720
60 au=0:ifpeek(711)=1andpeek(712)=1thenau=1:poke713,peek(713)+1
80 poke711,0:poke712,0:poke56,95
100 ifau=0thenpoke708,0:poke709,0
120 poke53280,00:poke53281,0:sys30368
140 poke53248+21,0:poke198,0:poke646,6
160 s=0:sp=30272
180 ifau=0thengosub2000
200 az=peek(697)
220 ifaz/2<>int(az/2)oraz>10oraz<4then180
240 x5=int(40/(az/2))
260 gosub1240:fory=1to13step12
280 forx=0to38stepx5:x1=x+int((x5-5)*rnd(0))
300 y1=y+int(6*rnd(0))
320 l=0:x2=x1*8+20:ifx2>255thenl=2:x2=x2-255
340 y2=y1*8+49
360 pokesp+s,x1:s=s+1
380 pokesp+s,y1:s=s+1
400 pokesp+s,x2:s=s+1
420 pokesp+s,y2:s=s+1
440 pokesp+s,l :s=s+1
460 next:next:goto760
480 v=53248
500 pokev+27,2:rem feuer
520 pokev+40,2
540 pokev+2,0
560 pokev+3,0
580 poke18425,12
600 pokev+21,3:rem auto
620 pokev+29,6
640 pokev+23,6
660 pokev+39,10
680 pokev+0,140
700 pokev+1,140
720 poke18424,13
740 return
760 forx=1toaz
780 r(x)=x:next:gosub900
800 forx=1to50:ra=int((az-1)*rnd(0))+1
820 a=r(ra):r(ra)=r(ra+1):r(ra+1)=a
840 next:gosub900
860 forx=1toaz
880 r(x)=5*(r(x)-1):next:gosub900::goto920
900 forx=1toaz:poke30335+x,r(x):next:return
920 rem spiel sterten
940 ifau=0thenpoke710,39
960 poke705,0:rem haus brennen
980 rem poke708,000:poke709,0:rem score
1000 poke53279,0:rem spreit kollision
1020 poke53264,0:rem spreit msb's
1040 poke703,00:rem haus nr. zaehler
1060 poke706,255:poke707,peek(710):rem bonus
1080 print"[147]":sys30624:rem hausbau
1100 print"";:forx=0topeek(710):printchr$(218);:next
1120 poke2,0:sys29248:rem spreit auf bs
1140 sys30089:rem feuer an
1160 gosub480:printchr$(146)chr$(142)chr$(8):poke256*peek(648)+999,160
1180 poke646,6:ti$="000000":poke721,1:rem ton auto
1200 sys29456
1220 run
1240 print"[147]":poke53280,0
1260 forx=0to5:print:next
1280 ifpeek(713)<=1thenti$="000000":printspc(15)"runde 1":return
1300 a1=val(left$(ti$,2))
1320 a2=val(mid$(ti$,3,2))
1340 a3=val(right$(ti$,2))
1360 a4=a1*3600+a2*60+a3
1380 print"sie haben"a4" sekunden gebraucht"
1400 print"das sind pro haus"a4/peek(697)" sekunden"
1420 :ti$="000000"
1440 print"[129] f[221]r neubeginn taste 'n' dr[221]cken"
1460 print" f[221]r die runde"peek(713)"[146]irgendeine taste dr[221]cken"
1480 gosub1840
1490 poke198,0
1500 poke56322,224:if(peek(56320)and16)=0then1520
1505 poke56322,255
1510 gete$:ife$="n"thenrun
1515 ife$=""then1500
1520 poke56322,255:print" [146]"
1521 print" [146]"
1522 print" [146][145][145]"
1530 forx=1to81:poke646,x
1540 print"runde"peek(713)"[157] kommt sofort![146][145]":next:poke646,6
1560 return
1580 poke198,0:poke211,0:poke214,19:sys58640
1585 print" anzahl h[219]user (4/6/8/10) 6[157]";
1588 az$="":poke211,26:print" [157][157]";
1589 geta1$:ifa1$=""then1589
1591 ifa1$=chr$(13)then1596
1592 ifasc(a1$)<48orasc(a1$)>57then1589
1593 iflen(az$)>1then1589
1595 printa1$;:az$=az$+a1$:goto1589
1596 az=val(az$):poke697,az:poke713,1
1600 ifaz/2<>int(az/2)oraz<4oraz>10thenpoke198,0:goto1588
1610 poke211,0
1611 print
1620 print" geschwindigkeit (0-20) 0=schnell 5[157]";
1622 az$="":poke211,35:print" [157][157]";
1624 geta1$:ifa1$=""then1624
1628 ifa1$=chr$(13)then1636
1630 ifasc(a1$)<48orasc(a1$)>57then1624
1632 iflen(az$)>1then1624
1634 printa1$;:az$=az$+a1$:goto1624
1636 iflen(az$)=0then1624
1637 a=val(az$)
1638 ifa<0ora>20then1622
1640 poke689,a
1650 poke211,0:print
1655 poke676,0
1662 print" t[146]astatur j[146]oystick t[157]";
1664 a$="":poke211,21:print" [157][157]";
1666 geta1$:ifa1$=""then1666
1667 ifa1$=chr$(13)then1670
1668 iflen(a$)>0then1666
1669 printa1$;:a$=a$+a1$:goto1666
1670 ifa$="j"thenreturn
1672 ifa$="t"thenpoke676,1:return
1674 goto1664
1720 print"";
1740 ifpeek(690)=15thenpoke690,0:goto1800
1760 print"[149] leider zu langsam gewesen ...... [146]"
1780 goto1820
1800 print"[149] eine auswegslose situation ...... [146]"
1820 sys31808:forx=0to200:sys31584:next:forx=0to5000:next:return
1840 poke722,0:forx=0to18:sys31744:next
1860 return
2000 gosub2400:print""
2005 poke646,peek(53281):rem titel
2010 print" [255] [255] [255] [255][255][255] [255][255][255] [255][255][255] [255][160][160][255] [255][255][255][255] "
2020 print" [255] [255][255] [255] [255] [255] [255][160][255] [255][255][160][255] [255][160][160][255] "
2030 print" [255] [255] [255][255] [255][255] [255][255] [255][255][255] [255] [255][255] [255][160][160][255] "
2040 print" [255] [255] [255] [255] [255] [255][255] [255][160][160][255] [255][160][160][255] "
2050 print" [255] [255] [255] [255][160] [255][255][255] [255] [255] [255][160][160][255] [255][255][255][255] "
2060 print""
2065 s1=54272:pokes1+24,15:pokes1+13,253:pokev+12,253:pokes1+11,17
2100 v=53248:pokev+27,2:rem feuer
2120 pokev+40,2
2140 pokev+2,00
2150 pokev+23,2
2160 pokev+3,58
2170 pokev+29,2
2180 poke18425,12
2200 pokev+21,2
2220 sys30089:sys30128
2230 pokev+16,0
2240 forx=0to255step2:pokev+2,x:
2245 ifx/6=int(x/6)then reads2:reads3:pokes1+8,s2:pokes1+7,s3
2250 if(x-20)/8<>int((x-20)/8)then2270
2260 fory=0to4:poke55296+40+(x-20)/8+40*y,7:next
2270 next
2300 pokev+16,2
2340 forx=0to116step2:pokev+2,x:x1=x+256
2345 ifx/6=int(x/6)then reads2:reads3:pokes1+8,s2:pokes1+7,s3
2350 if(x1-20)/8<>int((x1-20)/8)then2370
2360 fory=0to4:poke55296+40+(x1-20)/8+40*y,7:next
2370 :next
2380 poke54272+11,16:poke53248+21,0
2390 forx=0to6:print"":next:gosub1580:return
2400 print"[147][149]"
2410 print" das ziel des spieles ist es,die feuer durch ber[221]hren mit dem ";
2415 print"feuerwehrauto"
2420 print" zu l[220]schen. der eigene weg kann aber[160] nicht mehr gekreuzt werden."
2430 print" ausserdem ist die zeit begrenzt."
2440 print" der wagen wird entweder mit dem joystick in port 2"
2450 print" oder [221]ber die tasten [146]q [146]a [146]: [146]; [146] gesteuert."
2460 print" die 'shift'-taste hat eine pausen funktion."
2499 return
2500 data19,137,26,20,26,20,29,69,32,219
2510 data 26,20,32,219,29,69,19,137
2520 data19,137,26,20,26,20,29,69,32,219
2530 data26,20,26,20,24,157,19,137
2540 data26,20,26,20,29,69,32,219
2550 data34,207,32,219,29,69,26,20
2560 data24,157,19,137,21,237,24,157,26,20,26,20
2570 data21,237,24,157,21,237,19,137
2580 data21,237,24,157,26,20,26,20
2590 data19,137,21,237,19,137,17,103
2600 data16,109,17,103,19,137,19,137
2610 data21,237,24,157,21,237,19,137
2620 data21,237,24,157,26,20,21,237
2630 data19,137,26,20,24,157,29,69,26,20,26,20,26,20